NEWPWD SEXP,VAR

 Function
  Change the users password and maintain the password PSA if installed.

 Syntax
  NEWPWD pwd,var

   pwd  - A string expression with the new password for the user.
   var  - A variable to hold the password change status;
          TRUE if the password was changed or FALSE otherwise.

 Remarks
  There are two ways to change the users password under PPL control.  The
  first is to simply use GETUSER, assign the new password to U_PWD,
  then issue PUTUSER.  However, this isn't adequate if the SysOp has
  installed the password PSA.  This statement will take care of validating
  the password, checking it against the password history, updating the
  password history, setting a new expiration date if necessary and
  incrementing the times changed counter.  If the password fails a validity
  test then this statement will set the var parameter to FALSE to let you
  know that the password wasn't changed.  If the password PSA isn't
  installed or if the password conforms to the PSA requirements, then var
  will be set to TRUE.

 Examples
  BOOLEAN changed
  STRING  pwd
  INPUTSTR "Enter a new password",pwd,@X0E,12,MASK_PWD(),ECHODOTS
  NEWLINE
  NEWPWD pwd,changed
  IF (!changed) PRINTLN "Password not changed"